home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
phmacro.zip
/
STD4.OUT
< prev
next >
Wrap
Text File
|
1993-01-04
|
1KB
|
63 lines
fn: nam=<f> parms=<a> def=<f( x * (a))>
<fffffffffff>
obj: nam=<x> def=<2>
<x>
fn: nam=<m> parms=<a> def=<a(w)>
<mmmm>
obj: nam=<w> def=<0,1>
<www>
0:
:
0:
:
0: m (f)^m(m) ;
:
1: f
:
treating end-of-buffer as end-of-file
0R: m(_)
:
0R: a(w)
: mmmm
0R: f(w)
: mmmm
0: f(w)^m(m) ;
: mmmm
1: w
: m
hide-set #0 = {mw}
1: 0,1
: 000
0R: f(_)
:
0R: f( x * (a))
: fffffffffff
hide-set #1 = {fmw}
0R: f( x * (0,1))
: ffffffff111ff
hide-set #2 = {fm}
0: f( x * (0,1))^m(m) ;
: 2222222211122
0: F( x * (0,1))^m(m) ;
: 2222222211122
hide-set #3 = {fmx}
0: F( 2 * (0,1))^m(m) ;
: 2223222211122
1: m
:
treating end-of-buffer as end-of-file
0R: m(_)
:
0R: a(w)
: mmmm
0R: m(w)
: mmmm
0: F( 2 * (0,1))^m(w) ;
: 2223222211122 mmmm
0: F( 2 * (0,1))^M(w) ;
: 2223222211122 mmmm
0: F( 2 * (0,1))^M(0,1) ;
: 2223222211122 mm000m
0: f( 2 * (0,1))^m(0,1) ;
: